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Functional description: 
This module displays the device error roll-up report. 
Modified by: 


V03-004 SARO257 Sharon A. Reynolds 25-Apr-1984 
Widened the output field for the device names to 
accomodate the node name being logged now. 


V03-003 SARO094 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 


v03-002 SAROO9 haron Reynolds. 7-Apr-1983 
penoued search_sid and entry _type as call parameters. 
Added include Statement for the ‘msghdr’ common which 
defines the field definitions for the entry header 
and equivalenced search_sid and entry_type to the 
appropriate definitions. 


v03-001 BP0004 Brian Porter, 05-APR-1982 
Added stuff for mscp. 


a 
+ 


AO AOOOOOOAOOAOAOOAOAOAOAOAOAOOOOOOOH 


K 13 
16-Sep-1984 00:14:4 VAX=11 FORTRAN V3.4-56 Page 2 
Br8eb=19 4 RETR: DISKSVMSMASTER: CERF .SRCJROLLUP.FOR; 1 . 


S$8888888SS88SS88SSss3s 


00, 


. *] 


S2esee 


POOOOBODODODAODQDOAAODODODODOOOOOOOOOOOOOAOAOOAOOOOOAIOOAAOOOOOOOAOAOAOH 


SELESFELLS 


ecoecoccoseses> 
SSSS88SSSSS3S3SSSSSSsss: 


at ot ed 
wo 


—— 9 > _» 


DONONOUEWN —"OOONOW 


byte 
integer*4 
integer*4 
integer*4 
integer*4 
Equivalence 
Equivalence 
equivalence 
equivalence 
equivalence 
integer*4 
integer*4 
integer*4 
integer*4 
integert4 
integer*4 
integer*4 
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equivalence 
equivalence 
equivalence 


Sooooo 
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equivalence 


Include ‘SRC$:MSGHDR.FOR /NOLIST' 


current Label ' 
previous error --+ 


subroutine rollup (search_name_length,search_name_string, 
search_unit,iosb,ucb$|_opcnt,ucb$Sw_errcnt) 


Lun 

buf fer0(3) 

root_logging_sid_flink 
root_logging_sid_bl ink 
logging_sid_entry_count 
C(emb$l_hd_sid,search_sid) 
(emb$w_hd_entry,entry_type) 

(buf fer0(1) ,root_logging_sid_flink) 
(buf fer0(2),root_logging_sid_bl ink) 
(buf fer0(3), lLogging_sid_entry_count) 
buf fer1(6) 

flink1 

blink! 

Logging_sid 

root _name_flink 

root_name_blink 

name_entry_count 
(buffer1(1),flink1) 

(buf fer1(2) blink!) 

(buf fer1(3),logging_sid) 

(buf fer1(4),root_name_flink) 


! EMB entry header definitions 
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equivalence 


equivalence 
integert4 
integer*4 
integer*4 
byte 

byte 


character*15 


equivalence 
equivalence 
integer*4 

integer*4 

integer*4 

equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
integert4 
integer*4 
integer*4 
integer*4 
integer*4 
integer*4 
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Breep= 1984 feist sa3 
(buf fer1(5),root_name_blink) 

(buf fer1(6) ,name_entry_count) 

buf fer2(9) 

flink2 

blink2 

name_string_array(0:15) 

name_string_length 

name_string 

(name_string_array(0) ,name_string_length) 
(name_string_array(1),name_string) 

root_unit_flink 

root_unit_blink 

unit_entry_count 

(buf fer2(1),flink2) 

(buf fer2(2) ,blink2) 

(buf fer2(3) ,name_string_array) 

(buf fer2(7) ,root_unit_flink) 

(buf fer2(8) ,root_unit_blink) 

(buf fer2(9) ,unit_entry_count) 

buf fer3(13) 

flink3 

blink3 

ucb_unit_number 
device_hard_error_count 
device_soft_error_count 
timeout _hard_error_count 
timeout_soft_error_count 
ucb_unit_operation_count 
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ret BrRep- 1984 iaseti4s — DISKSVMSMASTER:LERF.SRCIROLLUP.FOR;1 77° a 
9 87 integers ucb_unit_error_count | 3 
9 89 integers4 pack_count 8 
9 31 byte previous_label_at_error_array(12) ° 
9 33 character*l2 previous_label_at_error 8 
° 32 equivalence (previous_label_at_error_array,previous_label_at_error) 82 
9 97 equivalence (buf fer3(1), flink3) 03 
$8 equivalence (buf fer3(2) ,blink3) oF 
0301 equivalence (buf fer3(3) ,ucb_unit_number) og 
0308 equivalence (buf fer3(4) ,device_hard_error_count) OF 
Bene equivalence (buf fer3(5) ,device_soft_error_count) ey 
0307 equivalence (buf fer3(6) ,timeout_hard_error_count) 93 
44 equivalence (buf fer3(7) ,timeout_soft_error_count) 

Ost equivalence (buf fer3(8) ,ucb_unit_operation_count) | 

0318 equivalence (buf fer3(9) ,ucb_unit_error_count) | 

O32 equivalence (buf fer3(10) ,pack_count) 

Oth equivalence (buf fer3(11) ,.previous_label_at_error_array) | 

$344 integer*4 logging_sid_entry_address 

0338 am name_entry_address 05 
O52 egert4 unit_entry_address 03 
0325 character*15 | search_name | Os 
Ose? character*l2 | current_label_at_error b3 
3 i394 lLogical*1 LibSextzv be 
033 logical! LibSget_vm 83 
0338 integert4 search_sid os 
0335 byte search_name_length o3 
0337 character*15 = search_name_string | os 
0339 integer*2 search_unit Oe 
p3cs integere2 entry_type | 03 
0325 integers4 compress4 ¢ | 03 
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integer*4 column 
integer*4 iosb 
integer*4 ucb$l_opcnt 
integer*2 ucb$w_errcnt 
integerté device_count 
integer*4 insert_blink 


call movc5 Sova) Cooarch name Length) .Sret (search nene_string) vet (42), 


1 Sval(15),fref(search_name 
Logging_sid_entry_address = root_logging_sid_flink 
do 50,1 = 1,logging_sid_entry_count 


call movc3 (%val(24),%val(logging_sid_entry_address) ,buffer1) 


if (search_sid .eq. logging_sid) then 
name_entry_address = root_name_flink 

do 40,j = 1,name_entry_count 

call movc3 (%val(36),%val(name_entry_address) , buf fer2) 
if (search_name .eq. name_string) then 
unit_entry_address = root_unit_flink 

do 30,k = 1,unit_entry_count 

call movc3 (%val(52) ,2val(unit_entry_address) ,buffer3) 
if (search_unit .eq. ucb_unit_number) then 

1 < 

ucb$l_opcnt .ne. -1 


ucb$w_errcnt one. -1 
then 


( 
ucb_unit_operation_count .eq. -1 
.an 


ucb unit_error_count eq. -1 


1 
1 
1 
1 
if 
1 
1 
1 
1 then 


ucb_unit_operation_count = 0 
ucb_unit_error_count = 0 


14 
1B-Sep-19 VAX-11 FORTRAN 4-56 Page 
-Sep-19 DISKSVMSMASTER SRCJROLLUP.FOR; 1 


BEE BMI WIAIIPIPIPIIPINININIDID 8 2 9 Pt MH OOOCOCOCOCOOCOCOVOOWO OOOO OOO@Mo 


RRLRRRRERERR RRR RRRR RRR RR RRR RRR RRR REE RRR ERE ER RAI 


0409 


PERERRRRPERPRRREEPEERERREREEPE 
WN —O OONOUSWN “OVO ONOUSWN—O 


SPEPrer 


FRR 
ene 
ODONOUES WO” 


33 
co 


es ey eee tee 


NOW wl 


RRRRRRKK 


endif 
ucb_unit_operation_count = ucb$l_opcnt 
ucb_unit_error_count = ucb$w_errcnt 
endif 


if Ciosb .ne. -1) then 


ft ¢ 
1 entry_type .eq. 1 
0 . 
entry_type .eq. 98 
0 . 
entry_type .eq. 99 
-or. 
entry_type .eq. 100 
1) then es ’ 
if (LibSextzv(0,1,iosb) .eq. 1) then 


if (device_soft_error_count .eq. -1) then 


i 
1 
1 
1 
1 
1 
1 


device_soft_error_count = 0 
endif 


Sou tee SOT Orver mn = device_soft_error_count + 1 
else 


if (device_hard_error_count .eq. -1) then 
device_hard_error_count = 0 

endif 

device_hard_error_count = device_hard_error_count + 1 
endif 

else if (entry_type .eq. 96) then 

if (LibSextzv(0,1,iosb) .eq. 1) then 

if (timeout_soft_error_count .eq. <1) then 


timeout_soft_error_count = 0 
endif 


tiacout_soft_errer_count = timeout_soft_error_count + 1 
else 


if (timeout_hard_error_count .eq. -1) then 
timeout_hard_error_count = 0 

endif 

t faveut herd_error_count = timeout_hard_error_count + 1 


en 
endif 
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pres endif O36 
60 call get_current_label(3,search_sid,search_name_Llength, | 0 Q 
red 1 Search-name stfing.search_unittreficurrént, (abel vat error) ,#20) B26 
O66? if (current_label_at_error .ne. previous_label_at_error) then | S26 
Bee? pack_count = pack_count + 1 B26 
Oca previous. label_at_error = current_label_at_error 031 
B47 20 call move3 (%val(44) ,ucb_unit_number ,%2val(unit_entry_address + 8)) 081 
047 return 051 
047 endif 051 
0474 051 
0475 insert_blink = blink3 051 
0476 051 
0477 if (ucb_unit_number .gt. search_unit) goto 35 B28 
oh 4 unit_entry_address = flink3 033 
0481 30 continue 052 
oAes 052 
ett insert_blink = root_unit_blink Bas 
eH 35 call movcS (%val(0),,%val(0),%val(52) ,buffer3) 033 
oat if (LibSget_vm(((52+7)/8)*8,unit_entry_address)) then 038 
ta call insque (%val(unit_entry_address) ,%val(insert_blink)) O33 
0499 aan = ee 033 
t=- 
0494 eae . _error_coun 083 
t =- 
0496 * me oo | 033 
t t =- 
0496 ae x 2 _error_count | 054 
t t t =- 
e344 meout_soft_error_count | 2 
9301 ucb_unit_operation_count = -1 1 
9808 ucb_unit_error_count = -1 2 
0305 unit_entry_count = unit_entry_count + 1 | 24 
0307 call movl (unit_entry_count,%val(name_entry_address + 32)) | rf 
509 goto 15 55 
510 endif 55 
511 55 
21¢ return 55 
51 endif 5§ 
514 55 


: 
Ss 
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0 1) name_entry_address = flink2 
7 40 continue 
13 call movcS (%val(0),,%val(0),%val (36) ,buffer2) 

03 1 if (LibSget_vm(((36+7)/8)*8,name_entry_address)) then 
B2 § call insque (%val(name_entry_address) ,ival(root_name_blink)) 
B2 5 name_string_length = search_name_length 
03 ? name_string = search_name 

| 
0 9 root_unit_flink = mame_entry_address + 24 | 
05 1 root_unit_blink = root_unit_flink | 
0338 call movc3 (%val(28) ,name_string_length,%val(name_entry_address + 8)) | 
0935 name_entry_count = name_entry_count + 1 
eh 4 call movl (name_entry_count,%val(logging_sid_entry_address + 20)) 
0539 goto 10 | 
0540 endif 
0541 
B20¢ return | 
054 endif 
0544 
Beee lLogging_sid_entry_address = flink1 | 
0547 50 continue 
0548 
8268 call movcS (Zval(0),,%val(0),%val(24) ,buffer1) 
O33! if (LibSget_vm(((24+7)/8)*8, Logging_sid_entry_address)) then | 
0358 if (logging_sid_entry_count .eq. 0) then 
Oaee root_logging_sid_flink = Zloc(root_logging_sid_flink) 
0887 root_logging_sid_blink = root_logging_sid_flink | 
$228 endif 
0560 call insque (val (Logging sid_entry_address), 
320) 1 Zval(root_logging_sid_bT inky) | 
0368 logging_sid = search_sid 
3203 root_name_flink = logging_sid_entry_address + 12 | 
0367 root_name_blink = root_name_flink 
0369 call movc3 (%val(16),logging_sid,%val(logging_sid_entry_address + 8)) 
bari logging_sid_entry_count = logging_sid_entry_count + 1 
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name_entry_address = root_name_flink 
do 90,j = 1,name_entry_count 
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ig $ep-1986 99: DISKSVMSMASTER: LER RF .SRCJROLLUP.FOR;1 nat 
a we 
ie] | 
0574 ond t | 
Ber? 
0576 return 
0577 
0578 
0579 
beat t displ Ll (lun) 
entr splay_ro n 
sh y display_rollup (lu 
0585 
3288 lLogging_sid_entry_address = root_logging_sid_flink 
$34 do 100,i = 1,logging_sid_entry_count 06 
Bane call movc3 (%val(24),2val (logging _sid_entry_address) ,buffer1) 06 
8236 call fretof (lun) 8e 
Bape call Linchk (lun,7) 8 
0596 write(lun,55) Logging sid 63 
5444 55 format(/" ',"DEVICE ROLLUP LOGGED BY SID ',28.8,:a,/) 
0599 write(lun,60) 
0600 60 format(/" *, DEVICE’, t23, "ERROR BITS',t51,"ERRORS THIS’, | 
0601 1 t66,°Q10S THIS',/ 
960¢ 1 t26."SET’,t38,'G10 TIMEOUT’, t53, "SESSION',t65, SESSION’) | 
bcos 65 Vornetty * t21,*CHARD)* £28, "CSOFTI", | 
9606 1 t36, “Stwarbs* tase *CSoFfI* | 
0608 device_count = 0 | 
| 
| 


call movc3 (Zval(36),Zval(name_entry_address) ,buffer2) 


064 
064 
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064 
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064 
064 
¢ 
065 
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unit_entry_address = root_unit_flink 
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do 80,k = l,unit_entry_count 
if (device count .eq. 23) then 
call fretof (lun) 


device_count = 0 
endif 


call movc3 (Zval(44) ,2val(unit_entry_address) ,buffer3) 
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call Linchk (lun,2) 


rite(l 66) 
format(? f.:) 


write(lun,67) name_string,ucb unit number 

format(' *,' *,a<name_string_Tength> 

1 i<compressS (ucb_unTt_number)>, ':'S 

column = name_string_length + (compress4 (ucb_unit_number)) + 2 
if (device_hard_error_count .£Q. -1) then 
pevice_hard_error_count = 

n 


if (device _soft_error_count .—@. -1) then 
Device.soft_errér_count = 


if (timeout_hard_error_count .EQ. -1) then 
Tiseout hard_error_count = 


if (timeout _soft_error_count .£Q. -1) then 
Tisequtsoft_errér_count = 0 


if (ucb_unit_error_count .E—Q. -1) then 
Yeh ynit_errér_count = 0 


if (ucb_unit_operation_count .£Q. -1) then 

Ucb_unit_operation_count = 0 

Endif 

write(lun,69) device_hard_error_count ,device_soft_error_count, 

1 timeout hard_error_count,t imedut_soft_errof_count, 
ucb_unif_error_count,ucb_unit_operation_count 

format(1T21,15,°.",128,15.,'.'. 

1 136.15. ).163,15.) 0) 

2 153,16,".".164,17,".°5 

device_count = device_count + 1 

unit_entry_address = flink3 

cont inue 

name_entry_address = flink2 

continue 

logging_sid_entry_address = flink! 


cont inue 


Year 


-56 
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Page 


11 


ee) 


PF PD 


3 


Of. 84 288 off odd odd 


14 
S$ep-1984 00:14:4 VAX=11 FORTRAN V3.4-56 Page 12. 
if: Sep-19 4 ObTi83 DISKSVMSMASTER : ER RF .SRCJROLLUP.FOR; 1 “ 


return 


end 


| 
Name Bytes Attributes 
CODE 1477 PIC CON REL LCL SHR EXE RD NOWRT LONG | 
1 SPDATA ef PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 2865 
ENTRY POINTS 
Address Type Name Address Type Name 
0-00000357 DISPLAY_ROLLUP 0-06000000 ROLLUP | 
VARIABLES 
Address Type Name Address Type Name 
BLINK1 -00000038 I*4 BLINK2 
BLINKS COLU | 
CURRENT_LABEL_AT_ERROR DEVICE_C 
DEVICE _AARD_ERROR_COUNT DEVICE- corr TERROR. COUNT | 
EMBSL_AD_SIB EMBSW_AD_ENTRY 
EMBSW-HD_ERRSEQ ENTRY 
FLINKT FLI 
FLINKS I 
INSERT BLINK lose 
LOGGING. SID LOGGING_SID_ENTRY_ADDRESS | 
LOGGING S1D_ENTRY_COUNT LUN 
NAME _ENTRY_ADDRESS NAME _ENTRY_COUNT 
NAME- STRING NAME STRING_LENGTH 
PACK~ COUNT PREVIOUS _LABEL_AT_ERROR 
ROOT-LOGGING_SID_BLINK ROOT_LOGGING_STD_FLINK 
poor SIN Roar int FC 
SEARTH_NARE SEARCH _NARE LENGTH 
HAR SEARCH. “NAME _STRING SEAR CH-SID 
SEARCH UNIT™ Timeout HARD_ERROR_COUNT 
TimeoUuTes sort  ERROR_COUNT UCBSL_OPCN te 
Matte ERRCNT ucB *URIT T_ERR 
U Unit NUMBER UCB" UNIT SOPERATION. Count 
UNIT_ENTRY_ADDRESS UNIT_ENTRY_C 
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ARRAYS 


Address Type Name Bytes Dimensions 


SUERTS Ist gure i 


000000 1*4 BUFFER 
00000000 I*4 BUFFER 


—MB 1 
000000 I1*4 EMBSO_H ine 
0000003C L*1 NAME STRING 18 
00000028 L*1 PREVIOUS *LABEL why _ERROR_ARRAY 1 


LLL LE LLL 


Address Label Address Label Address Label Address Label Address Label Address Label 


0-00000048 5 0-0000007C 10 0-00 
te 40 we 50 1-00 
1-O000000DF 67° 1-000000F5 69° 


0 ee 30 9-09009 44 ee 


QO00A 1 0-000001(B 2 
000020 55° 1=00000049 60° 1=Q00000AD 65° 1-000 
ee 80 ee 90 ee 100 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name 


I*4 COMPRESS4 FRCTOF GET oa LABEL 
INSQUE 


} 
| 
| 
LABELS 
Le LIBsExtzv Let LIBSGET_v 
mOVC 


4 eee ee ee ee 8 ee Fe ee ee ee a a a 


MPTP Po Nororoefnonere 


LINCHK 
MOVL 


FORTRAN /LIS=LIS$:ROLLUP/OBJ=0BJ$:ROLLUP MSRC$:ROLLUP 


/ CHE CK=(NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOL § TRACE EBACK) 

/STANDARD= (NOS YNTAX E FORM) 

/SHOW= (NOPREPR OCESSOR. ROINELODE™ 
/77 /NOG_ FLOATING 714 COPTIMITE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


0 
0 
0 
0 
) 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


COMMAND QUALIFIERS 
| 
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COMPILATION STATISTICS 


Run Time: 5.92 seconds 

Elapsed Time: 14.57 seconds | 
Page Faults: 197 

Dynamic Memory: 218 pages 
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